﻿Public Module Config

    Public DiretorioAplicacao As String = IO.Path.GetDirectoryName(Application.ExecutablePath)
    Public DiretorioBD As String = DiretorioAplicacao & "\..\..\..\Resources\BDFarense.accdb"
    Public DiretorioBDSemArquivo = DiretorioAplicacao & "\..\..\..\Resources"
    Public DiretorioBackup As String = New IO.FileInfo(DiretorioAplicacao & "\..\..\..\Resources\DatabaseBackup\bin\Debug\SafetyBox.exe").FullName
    Public DiretorioBackupAutomatico = DiretorioAplicacao & "\..\..\auto\backup"
    Public DiretorioPainelFlash = DiretorioAplicacao & "\..\..\..\flash\menu.swf"

    Public Function getVersao() As String
        Dim versaoAplicativo = My.Application.Info.Version
        Dim versao = String.Format("{0}.{1} Beta" _
                                   , versaoAplicativo.Major _
                                   , versaoAplicativo.Minor)
        Return (versao)
    End Function

End Module